home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / pc / NETCD41.dir / 00039_Script_Browser launcher < prev    next >
Text File  |  1997-12-11  |  3KB  |  99 lines
  1. --BROWSER LAUNCHING BITS
  2. on LaunchBrowser
  3.   global gPlatform, gCDDrive, gURL, gMA, gBrowserLoc, gPathsep
  4.   
  5.   if gBrowserLoc = "" then
  6.     Alert "To access the Internet using the .net CD-ROM you must have an Internet connection using Internet Explorer as the default browser. Detecting Browser..."
  7.     --  First off, check to see whether there is a browser set up
  8.     
  9.     if not objectP(gMA) then
  10.       if the machinetype <>256 then
  11.         openxlib "MasterAp.pxo"
  12.       else
  13.         openxlib "MastrApp.dll"
  14.       end if
  15.       if the machinetype = 256 then
  16.         global j2736d2937m2382, gVoid
  17.         set j2736d2937m2382 to "Y7729J3338J3942"
  18.       else
  19.         global j2345q8345s3245, gMasterAppObject, gVoid
  20.         set j2345q8345s3245 to "u2321h8334k9372"
  21.       end if
  22.       
  23.       put MasterApp(mNew) into gMA
  24.       
  25.       if the machinetype = 256 then
  26.         set j2736d2937m2382 to gVoid
  27.       else
  28.         set j234q8345s3245 to gVoid
  29.       end if
  30.       
  31.       if not objectP(gMA) then
  32.         alert "No object!"
  33.         return
  34.       end if
  35.     end if
  36.     set gBrowserLoc = gMA(mLocateExecutable, the pathname & "web" & gpathsep & "ie3.htm")
  37.     if word 1 of gBrowserLoc = "error:" then 
  38. --      Alert "We were unable to detect a IE3 on this system. Trying for Netscape"
  39.       set gBrowserLoc = gMA(mLocateExecutable, the pathname & "web" & gpathsep & "netscape.htm")   
  40.     end if
  41.     --    if there is no browser installed on the users' system then tell them and 
  42.     --    if we can get them to enter a path to it.
  43.     
  44.     if word 1 of gBrowserLoc = "error:" then
  45.       Alert "No browser detected. To access the Internet using the .net CD-ROM you must have an Internet connection using Internet Explorer set up as the default browser. Exiting..."
  46.       if objectP(gMA) then gMA(mDispose)
  47.       exit
  48.     else     
  49.       
  50.       if objectP(gMA) then gMA(mDispose)
  51.     end if
  52.   end if
  53.   
  54.   --  sort out which button they pressed and assign a URL to go to
  55. --alert "Browser found at: " & gBrowserLoc
  56.   
  57.   --    put the bit in here that launches our external browser thing.
  58. --Alert "launching to external Browser. It will launch " & gURL & ".htm"
  59.   
  60.   if not objectP(gMA) then
  61.     if the platform = 256 then
  62.       openxlib the pathname & "MastrApp.dll"
  63.     else 
  64.       openxlib "MasterAp.pxo"
  65.     end if
  66.     
  67.     if the machinetype = 256 then
  68.       global j2736d2937m2382, gVoid
  69.       set j2736d2937m2382 to "Y7729J3338J3942"
  70.     else
  71.       global j2345q8345s3245, gMasterAppObject, gVoid
  72.       set j2345q8345s3245 to "u2321h8334k9372"
  73.     end if
  74.     
  75.     put MasterApp(mNew) into gMA
  76.     
  77.     if the machinetype = 256 then
  78.       set j2736d2937m2382 to gVoid
  79.     else
  80.       set j234q8345s3245 to gVoid
  81.     end if
  82.     
  83.     
  84.     if not objectP(gMA) then
  85.       alert "No object!"
  86.       return
  87.     end if
  88.   end if
  89.   Alert "Launching... " & the pathname & "web" & gpathsep & gURL & ".htm"
  90.   set instanceID = gMA(mOpenDocument, the pathname & "web" & gpathsep & gURL & ".htm")
  91.   if instanceID <= 0 then
  92.     alert "Error launching: " & string(instanceID)
  93.   end if 
  94.   
  95.   
  96.   --  need to check that I'm shutting down the Xobjects OK.
  97.   if objectP(gMA) then gMA(mDispose)  
  98. end LaunchBrowser
  99.